if ($msg =~ /^perl (.*)/) {
  eval($1);
  $self->sendMessage("Evaluation successful!");
}